***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
*** This Program already converted to Y2K                                                                                                                                                                                                                 
*** S&T Departement     on 29 April 1999 by Ben.Rahman                                                                                                                                                                                                    
***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
set cent on                                                                                                                                                                                                                                               
SET TALK OFF                                                                                                                                                                                                                                              
SET DATE BRITI                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                          
SET COLO TO W/B,W/B                                                                                                                                                                                                                                       
CLEA                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
cKet1 = 'PROCEDURES IN A.E.A INTERNATIONAL CLINIC'                                                                                                                                                                                                        
cKet2 = 'Printing ...'                                                                                                                                                                                                                                    
dDate = CTOD('  /  /    ')                                                                                                                                                                                                                                
STOR 0 TO nBrs, nHal                                                                                                                                                                                                                                      
set colo to bg+/b,w+/n                                                                                                                                                                                                                                    
CLEAR                                                                                                                                                                                                                                                     
SET COLO TO BG+/B,w+/n                                                                                                                                                                                                                                    
DO ADDRESSS                                                                                                                                                                                                                                               
                                                                                                                                                                                                                                                          
@10,((80-LEN(cKet1))/2) SAY cKet1                                                                                                                                                                                                                         
@12,17 SAY 'Effective Date :'                                                                                                                                                                                                                             
@12,34 GET dDate                                                                                                                                                                                                                                          
READ                                                                                                                                                                                                                                                      
IF LASTKEY() = 27                                                                                                                                                                                                                                         
   SET COLO TO W/N,W/N                                                                                                                                                                                                                                    
*   CLEA                                                                                                                                                                                                                                                  
   CLOS ALL                                                                                                                                                                                                                                               
   RETU                                                                                                                                                                                                                                                   
ENDI                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
@15,((80-LEN(cKet2))/2) SAY cKet2                                                                                                                                                                                                                         
                                                                                                                                                                                                                                                          
SET PRIN ON                                                                                                                                                                                                                                               
SET DEVI TO PRIN                                                                                                                                                                                                                                          
?CHR(15)                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                          
DR1 = 'N:'                                                                                                                                                                                                                                                
F1  = 'MEDIC_PR'                                                                                                                                                                                                                                          
*F2  = 'MEDPRIN'                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
SET EXCLU OFF                                                                                                                                                                                                                                             
USE &DR1&F1 INDE &DR1&F1                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                          
DO HMEDPRIN                                                                                                                                                                                                                                               
                                                                                                                                                                                                                                                          
DO WHIL .NOT. EOF()                                                                                                                                                                                                                                       
   IF nBrs > 58                                                                                                                                                                                                                                           
      DO HMEDPRIN                                                                                                                                                                                                                                         
   ENDI                                                                                                                                                                                                                                                   
   @nBrs,11  SAY AREA_CODE                                                                                                                                                                                                                                
   @nBrs,13  SAY SUB_AREACO                                                                                                                                                                                                                               
   @nBrs,15  SAY PRO_CODE                                                                                                                                                                                                                                 
   @nBrs,19  SAY ALLTRIM(MAIN_AREA)+' - '+ALLTRIM(SUB_AREA)                                                                                                                                                                                               
   @nBrs,72  SAY ALLTRIM(SHRT_DESCR)                                                                                                                                                                                                                      
   PBPRIC=PUB_PRICE                                                                                                                                                                                                                                       
   DO SAYG WITH NBRS,98,PBPRIC,'99,999.99','9,999,999'                                                                                                                                                                                                    
*   @nBrs,98  SAY PUB_PRICE PICT '9,999,999'                                                                                                                                                                                                              
   @nBrs,108  SAY 'per'                                                                                                                                                                                                                                   
   @nBrs,112 SAY TARIF_METH                                                                                                                                                                                                                               
   IF HEALTHLINE                                                                                                                                                                                                                                          
      @nBrs,126 SAY 'Covered'                                                                                                                                                                                                                             
   ELSE                                                                                                                                                                                                                                                   
      @nBrs,126 SAY 'Not Covered'                                                                                                                                                                                                                         
   ENDI                                                                                                                                                                                                                                                   
   nBrs = nBrs + 1                                                                                                                                                                                                                                        
   SKIP                                                                                                                                                                                                                                                   
ENDD                                                                                                                                                                                                                                                      
?CHR(18)                                                                                                                                                                                                                                                  
SET PRIN OFF                                                                                                                                                                                                                                              
SET DEVI TO SCREE                                                                                                                                                                                                                                         
SET COLO TO W/N,W/N                                                                                                                                                                                                                                       
*CLEA                                                                                                                                                                                                                                                     
CLOS ALL                                                                                                                                                                                                                                                  
RETU                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
PROC HMEDPRIN                                                                                                                                                                                                                                             
*------------                                                                                                                                                                                                                                             
*         1         2         3         4         5         6         7         8         9         0         1         2                                                                                                                                 
*123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456                                                                                                                           
*Page No. : 999                         PROCEDURES IN THE A.E.A INTERNATIONAL CLINIC                                                                                                                                                                      
*99/99/9999                                   List as of 99 XXXXXXXXX 9999                                                                                                                                                                                
*CODE    A R E A                                              DESCRIPTION OF PROCEDURE  PRICE     UNIT              HEALTHLINE                                                                                                                            
*X X XX  X----------------------X - X----------------------X  X----------------------X  9,999,999 per X----------X  XXX XXXXXXX                                                                                                                           
                                                                                                                                                                                                                                                          
nHal = nHal + 1                                                                                                                                                                                                                                           
@01,11 SAY 'Page No. :'                                                                                                                                                                                                                                   
@01,22 SAY nHal PICT '999'                                                                                                                                                                                                                                
@01,50 SAY 'PROCEDURES IN THE A.E.A INTERNATIONAL CLINIC'                                                                                                                                                                                                 
@02,11 SAY DATE()                                                                                                                                                                                                                                         
@02,54 SAY 'List as of'                                                                                                                                                                                                                                   
@02,65 SAY STR(DAY(dDate),2)+' '+CMONTH(dDate)+' '+STR(YEAR(dDate),4)                                                                                                                                                                                     
@04,11 SAY 'CODE    A R E A                                              DESCRIPTION OF PROCEDURE  PRICE     UNIT              HEALTHLINE'                                                                                                                
nBrs = 6                                                                                                                                                                                                                                                  
RETU                                                                                                                                                                                                                                                      
